home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
cranberry park
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
12KB
|
286 lines
48 poke 52,56:poke 56,56:clr:gosub 7000:poke53280,.:poke53281,.
49 print "[147]":poke214,10:print
50 print " do you need instructions? y/n [146]"
51 get a$
53 if a$="" then 51
55 if (a$="y" or a$="[217]")then gosub 112
56 if (a$="n" or a$="[206]") thengosub8000:goto 70
57 goto 49
70 print "[147]":poke214,10:print
71 print " loading..."
72 load "park",8:goto 11726
75 end
112 print "[147]":poke214,10:print
113 print " print to screen or printer? s[146] or p[146]?"
114 get a$
115 if a$="" then 114
117 if (a$="s" or a$="[211]") then 120
118 if (a$="p" or a$="[208]") then gosub6000:goto135
119 goto 112
120 print "[147]"
125 tb$=" ":gosub 200
130 goto 153
135 tb$=" ":open4,4:cmd4
140 gosub 200
145 print#4:close4
153 print "[147]":poke214,9:print
154 print " do you want to see the"
155 print " instructions again? y/n [146]"
156 get a$
157 if a$="" then 156
159 if (a$="y" or a$="[217]")then 112
160 if (a$="n" or a$="[206]") then gosub8000:return
161 print "[147]"
162 goto 153
200 printtb$" planning instructions"
205 print
210 printtb$" you have been hired by the "
215 printtb$"cranberry cove recreation committee "
220 printtb$"to plan a new park for the town. your"
225 printtb$"job is to draw up the plan in a "
230 printtb$"certain number of days (your deadline)"
235 printtb$"to meet the specifications of the "
240 printtb$"committee. your job rating depends "
245 printtb$"upon how many of the most desirable "
250 printtb$"park parts you can include in your "
255 printtb$"plan before the deadline."
260 print:printtb$" you will draw up your plans on a "
265 printtb$"rectangular planning diagram with 18 "
270 printtb$"plots where the different parts of the"
275 printtb$"park may go. the plots are arranged "
280 printtb$"in 3 rows and 6 colunms, like this: "
285 print:if tb$=" " then gosub 3000
294 printtb$" [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174] "
295 printtb$" [221] [221] [221] [221] [221] [221] [221] "
300 printtb$" 1 [221] [221] [221] [221] [221] [221] [221] "
305 printtb$" [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] "
310 printtb$"r [221] [221] [221] [221] [221] [221] [221] "
390 printtb$"o 2 [221] [221] [221] [221] [221] [221] [221] "
395 printtb$"w [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] "
400 printtb$" [221] [221] [221] [221] [221] [221] [221] "
405 printtb$" 3 [221] [221] [221] [221] [221] [221] [221] "
410 printtb$" [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189] "
415 print
420 printtb$" 1 2 3 4 5 6 "
425 print
430 printtb$" column "
435 print:print:if tb$=" " then gosub 3000
436 print
440 printtb$" recreational values "
445 printtb$" and your job rating "
450 print
455 printtb$" you have a list of park parts to "
460 printtb$"work with, and the committee has "
465 printtb$"assigned each of these parts a certain"
475 printtb$"recreational value, a number from 1 to"
480 printtb$"9. this number represents the "
485 printtb$"committee's judgment as to how "
490 printtb$"valuable that part will be to the "
495 printtb$"success of the park. if the park is "
500 printtb$"considered successful, then of course "
505 printtb$"your job rating will be high. each "
510 printtb$"time you include a part in your plan, "
515 printtb$"your job rating will go up by the same"
520 printtb$"amount as the part's value rating. if"
525 printtb$"the sand box has a value of 5, and you"
530 printtb$"include it in your plan, your job "
535 printtb$"rating will go up by five points."
540 if tb$=" " then gosub 3000
545 print:printtb$" if you don't finish by the deadline"
550 printtb$"date, your job rating will decrease "
555 printtb$"with each day you fail to complete "
560 printtb$"your plan. "
565 print:printtb$" restrictions on placement"
570 print:printtb$" your task is made more difficult "
575 printtb$"by the fact that the committee has put"
580 printtb$"restrictions on the placement of the "
585 printtb$"various parts you could include in the"
590 printtb$"park. for example, some parts must be"
595 printtb$"or must not be adjacent to other "
600 printtb$"parts. (adjacent means directly "
605 printtb$"above, below, or to the right or left "
610 printtb$"of other parts.) some parts must be "
615 printtb$"in certain rows or columns or on the "
620 printtb$"perimeter (around the edges) of the "
625 printtb$"park, and so forth."
626 print: if tb$=" " then gosub 3000
628 print:printtb$" while you are developing your plan,"
630 printtb$"you will not be allowed to place a "
635 printtb$"part on the diagram if the committee's"
640 printtb$"restrictions do not permit it. the "
645 printtb$"restrictions will be shown on your "
650 printtb$"list along with the recreational value"
655 printtb$"of each part and a two-letter "
660 printtb$"abbreviation for the name of the part."
665 print:printtb$" you may at times need to keep track"
670 printtb$"of a great deal of information about "
680 printtb$"the restrictions on placement of the "
685 printtb$"various park parts. because different"
690 printtb$"people like to organize their informa-"
695 printtb$"tion in different ways for different "
700 printtb$"planning strategies, you will be given"
705 printtb$"four options on how you want the park "
710 printtb$"parts arranged on your reference list."
720 print:if tb$=" " then gosub 3000
725 print:printtb$" these are your options: "
730 print:printtb$" -parts with the highest values first"
735 printtb$" -parts with the fewest restrictions "
740 printtb$" first (the 'easies')"
745 printtb$" -parts with the most restrictions "
750 printtb$" first (the 'hards')"
755 printtb$" -alphabetical order
760 [153]
765 [153]tb$" try different arrangements to see "
770 [153]tb$"what works best for you under what "
775 [153]tb$"conditions."
780 [153]
785 [139] tb$[178]" " [167] [141] 3000
790 [153]:[153]tb$" committee advice":[153]
795 [153]tb$" the committee members are known to "
800 [153]tb$"change their minds occasionally, "
805 [153]tb$"especially a certain mr. nathan "
810 [153]tb$"terrupt. thus the committee may "
815 [153]tb$"inform you at any time that they have "
820 [153]tb$"changed the values they place on "
825 [153]tb$"certain parts of the park, or that "
830 [153]tb$"they do not like where you have "
835 [153]tb$"planned to put a particular part. you"
840 [153]tb$"may disagree, but you must accept "
845 [153]tb$"their judgment.":[153]
850 [153]:[139] tb$[178]" " [167] [141] 3000
855 [153]:[153]tb$" your contract":[153]
860 [153]tb$" you begin by selecting the terms of"
865 [153]tb$"your planning assignment. the amount "
870 [153]tb$"of restriction the committee has put "
875 [153]tb$"on the placement of parts may be "
880 [153]tb$"minimal, moderate, or severe. "
885 [153]tb$"the number of days to your deadline "
890 [153]tb$"may be 75, 150, 225, or 300. your "
895 [153]tb$"list may be organized in one of the "
900 [153]tb$"four different ways. you should "
905 [153]tb$"decide which are the easiest choices "
910 [153]tb$"to begin your career, but your "
915 [153]tb$"reputation will improve as you select "
920 [153]tb$"the more difficult assignments. "
925 [153]:[139] tb$[178]" " [167] [141] 3000
930 [153]:[153]tb$" the nitty gritty"
935 [153]
940 [153]:[153]tb